home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / mail / YAM13_4Upd.lha / YAM_Update / Install < prev    next >
Text File  |  1996-12-12  |  1KB  |  40 lines
  1. ; YAM 1.3.4 update script - © 12-Dec-96, Marcel Beck
  2.  
  3. (message "\n\n\nWelcome to the YAM 1.3.4 update.\n\n"
  4.          "Important: This installer script requires\nan installed version of YAM 1.3.3a.")
  5.  
  6. (complete 0)
  7. (if (<> 0 (exists "YAM:" (noreq)))
  8.    (set yam_file (tackon (getassign "YAM") "YAM"))
  9.    (set yam_file @default-dest)
  10. )
  11. (set yam_file
  12.    (askfile (default yam_file) (prompt "Please select the YAM 1.3.3a executable") (help @askfile-help))
  13. )
  14. (set @default-dest (pathonly yam_file))
  15.  
  16. (complete 25)
  17. (set yam_patch -1)
  18. (set yam_size (getsize YAM_file))
  19. (if (= yam_size 152716) (set yam_patch 0))
  20. (if (= yam_size 152180) (set yam_patch 1))
  21. (if (= yam_size 152164) (set yam_patch 2))
  22. (if (= -1 yam_patch)
  23. (
  24.    (abort "\nSorry, but you can only update from YAM 1.3.3a.\n"
  25.           "It's available from the Aminet: comm/mail/YAM13_3a.lha")
  26. ))
  27. (set version_desc (select yam_patch "" "[020]" "[040]"))
  28. (message "\nThe installer script found\nversion 1.3.3a " version_desc " of YAM.\n\n"
  29.          "If you continue,\n" yam_file "\nwill be updated.\n")
  30.  
  31. (complete 50)
  32. (set patch_file (select yam_patch "YAM.pch" "YAM.020.pch" "YAM.040.pch"))
  33. (working "Applying " patch_file "...")
  34. (run (cat "spatch -o" yam_file " -p" patch_file " " yam_file))
  35.  
  36. (complete 75)
  37. (copyfiles (source "Changes") (dest @default-dest))
  38. (complete 100)
  39.  
  40.